Top 10k strings from Racing Manager (1983)(Virgin Games).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   6 MEETING=25
   5 CLASS*4000
   5 (MEETING/9
   5 (MEETING/7
   4 F(SECOND,1
   4 *a)+((r$(c,1
   3 S(L(A,SECOND),3
   3 ;": VALUE `";L(A,13
   3 ;" AND ";CLASS+2
   3 ))+(L(A,13
   2 do>class-2
   2 do<class+2
   2 S(H(HORSE,1
   2 PRIZE MONEY =PRIZE MONEY+L(A,13
   2 DO>CLASS-2
   2 DO<CLASS+2
   2 DO<CLASS*4000
   2 CO+" "+N$(H(C,1
   2 CHS=L(A,FIRST) 
   2 );" FURLONGS"
   2 ),V)="1"):
   2 )*(S(H(NO,1
   2 (S(H(HORSE,1
   2 (F(THIRD,1
   2 (F(SECOND,1
   2 (F(FIRST,1
   2 ((S(H(NO,1
   2 ((MON-SMON)*.3
   2 ''"NOW ";S(H(HO,1
   2 "which one ? (enter 1
   2 "Enter new name"'
   2  `";L(A,13
   1 r$(l(a,dis),1
   1 mon=mon-50
   1 meeting=h(8
   1 do>CLASS-2
   1 do<CLASS+2
   1 dis=first:
   1 day (only horses which have won a race from their last six will be accepted)."
   1 class*4000
   1 a;" ";T$(A):
   1 a$=a$+a$+a$:
   1 a$=a$+a$+a$
   1 a$="SAVE 0645"
   1 Z$="THIRD  "+N$(L(A,THIRD))+"  "
   1 YOUR HORSE JUST WON THE DERBY !!
   1 YOU LOST MONEY THIS SEASON
   1 Y$="SECOND "+N$(L(A,SECOND))+"  ":
   1 X=NO.OF HORSES
   1 X$=X$+"GS"
   1 X$=X$+"GF"
   1 X$="MTG. "+
   1 WINNERS DAY
   1 W$="FIRST  "+N$(L(A,FIRST))+"  ":
   1 URGENT MESSAGE
   1 The next meeting number is "
   1 TRAINER :";T$(T,
   1 TOTAL=TOTAL+H(A,3
   1 TOTAL=TOTAL+F(B,1
   1 THIRD PLACED PRIZE MONEY
   1 THIRD  WYELEA
   1 THE WINNER IS 
   1 STEWARDS ENQUIRY
   1 STAKE>5000
   1 SKILL=SKILL+1
   1 SECOND YOZZER
   1 SECOND PLACED PRIZE MONEY
   1 R$(L(A,THIRD),7
   1 R$(L(A,THIRD),1
   1 R$(L(A,SECOND),7
   1 R$(L(A,SECOND),1
   1 R$(L(A,FIRST),7
   1 R$(L(A,FIRST),1
   1 R$(L(A,C),1
   1 R$(A)="/"+R$(A,1
   1 PRIZE MONEY=PRIZE MONEY+L(A,13
   1 PRIZE MONEY=0
   1 PRESS 0 TO LINE PRINT RESULT
   1 P=STAKE*(F(BHO,1
   1 NO QUALIFIERS IN YOUR STABLES
   1 MON=MON-H(NO,3
   1 MON=MON-EX:
   1 MON=MON-90
   1 MON=MON-700
   1 MON=MON-470
   1 MON=MON-250
   1 MON=MON-220
   1 MON=MON+H(NO,3
   1 MON=MON+GAMB+PRIZE MONEY-ENTRY FEES-
   1 MEETING=MEETING+1
   1 MEETING=30
   1 LOSERS DAY
   1 L(A,CX)=B:
   1 IA DERRINGER    
   1 H.CECIL   50000   L.PIGGOTTW.HERN    40000   W.CARSON P.WALWYN  30000   P.EDDERY F.DURR    20000   J.MERCER 
   1 GAMBLING BALANCE `
   1 GAMB=GAMB-STAKE:
   1 GAMB=GAMB+P
   1 FIRST  SNAKE BITE
   1 ENTRY FEES=ENTRY FEES+CLASS*125
   1 ENTRY FEES=0
   1 E=E+(R$(h(c,1
   1 E=E+(R$(H(C,1
   1 E=E+(R$(B,V)="1"):
   1 DISQUALIFIED
   1 CONGRATULATIONS
   1 CLASS=(A*3
   1 CHS=L(A,THIRD) 
   1 CHS=L(A,SECOND) 
   1 ;x;" ";t$(x,19
   1 ;x;" ";t$(x,
   1 ;meeting +1
   1 ;R$(L(A,B),
   1 ;N$(L(A,HO));" SELECTED","ODDS ARE :";
   1 ;C;" ";N$(L(A,C)),:
   1 ;;N$(H(NO,1
   1 ;"` = VALUES # = LIST + = EXIT":
   1 ;"YOU BACKED THE WINNER":
   1 ;"YOU ARE OFFERED THIS HORSE "'"DO YOU WANT HIM? "
   1 ;"TRAINER FEE 
   1 ;"SELECT SKILL LEVEL"
   1 ;"SALE PRICE `";H(NO,3
   1 ;"Racing Manager";
   1 ;"MONEY LEFT `";MON-EX;
   1 ;"HORSE NAME
   1 ;"GOING IS ";:
   1 ;"FURLONG ";F:
   1 ;"FOR HORSES WITH A SPEED FACTOR  BETWEEN ";CLASS-2
   1 ;"ENTER HORSE NUMBER OR 99"
   1 ;"DISTANCE ";L(A,12
   1 ;"Author : Mark Alexander."
   1 ;"0 = COPY: ANY TO CONTINUE"
   1 ;" AND `";CLASS*4000
   1 99 to load a saved game   ";
   1 -T-(SKILL/3
   1 --- RESULT STANDS ---
   1 *a)+((r$(c,2
   1 )=S(L(A,SECOND),3
   1 )=(TOTAL/F(B,1
   1 )="D")*400
   1 )="3")*100
   1 )="2")*200
   1 )="1")*300
   1 )="1")*100
   1 )="0"+R$(L(A,C),1
   1 )<CLASS*4000
   1 );" FURLONGS";:
   1 );" FURLONGS":
   1 );" ";s(h(a,1
   1 );"  ";a$(Z*2
   1 )*(S(H(A,1
   1 ));B;" ";N$(L(A,B));
   1 ));" SOLD FOR `";H(NO,3
   1 ));" RUNNING"
   1 ));" ACCEPTED"'"ENTRY FEE IS  `";CLASS*125
   1 ));"  ";H(A,3
   1 ))+"% S="+
   1 ))+"% FIT "+
   1 )'"NOW HAVE `";:
   1 (S(L(A,B),1
   1 (R$(L(A,THIRD),7
   1 (R$(L(A,SECOND),7
   1 (R$(L(A,FIRST),7
   1 (MON/((smon/100
   1 (GOING-S(c,4
   1 (D(SECOND,1
   1 (D(FIRST,1
   1 ((RTE+WHAT)/SEA):
   1 ("WHICH HORSE DO YOU WISH TO BACK?enter 1 to ";x);
   1 '''"SAVE GAME SELECTED"''"INPUT 99 TO CONTINUE":
   1 '''"   PRESS    TO"''"
   1 ''"SEASON :- ";SEA
   1 ''"S = SPEED RATING"'"F = FITNESS %"'"D = BEST DISTANCE"'"G = PREFFERED GOING"
   1 ''"Old name : ";t$(ho,19
   1 ''"Old name : ";t$(ho,
   1 ''"INVALID ENTRY":
   1 ''"Horse name not found try again":
   1 ''"ENTRY FEES   `";ENTRY FEES'"PRIZE MONEY  `";PRIZE MONEY
   1 ''"CREDITORS MEETING IS THE LAST   STRAW"''"YOU DO THE HONOURABLE THING."
   1 ''"CASH BEFORE RACING `";MON
   1 ''"ALL ENTRIES FOR THIS MEETING NOW
   1 ''"1 (learner) TO  9 (mastermind)"
   1 '"WEEKLY BALANCE `";MON-X
   1 '"TOTAL ENTRY FEES :`";ENTRY FEES:
   1 '"THIS HORSE IS ";S(H(HORSE,1
   1 '"STABLE JOCKEY :";T$(T,18
   1 '"RACE VOID.  INSUFFICIENT ENTRY.":
   1 '"RACE :";A;"
   1 '"Meeting number 25 is 
   1 '"MANAGERIAL RATING ";
   1 '"FINANCE NOW `";MON
   1 '"FEES ARE PER HORSE PER SEASON"
   1 '"Every seventh meeting is 
   1 '"Every ninth meeting is LOSERS   day (only horses which have
   1 '"DO YOU WISH TO ENTER HIM FOR THERACE ? (Y/N)"
   1 '"CONCERNING ";
   1 '"CASH REMAINING `";MON
   1 '"All meetings except the DERBY   are classed in speed factors."
   1 '"ALL SPEED FACTORS ARE CALCULATEDON THE SUCCESS OF THE HORSE LASTSEASON. PRIZE MONEY APPLIES ONLYTO THE CURRENT SEASON."
   1 '": VALUE `";L(A,13
   1 "new name is ";a$,
   1 "` ";STAKE
   1 "YOU WON `";P:
   1 "WHILST TRAINING TODAY THE ANIMALWAS SEEN TO BE MISSING A STRIDE.UPON EXAMINATION A PULLED TENDONWAS FOUND."''"HORSE NOW 40% FIT":
   1 "WHICH HORSE TO SELL? (1
   1 "VALUE IS ";
   1 "TRAINING FEE `";
   1 "THIS HORSE SPRAINED A LIGAMENT  ON THE MORNING GALLOPS":
   1 "THIS HORSE IS SUFFERING WITH A  TUMMY BUG"''"NOW ONLY 72% FIT":
   1 "THIS HORSE INJURED HIMSELF WHILEKICKING MY NEW ROLLS"'"PANEL BEATERS AND RESPRAY `700"''"NOW ONLY 65% FIT":
   1 "THIS HORSE HAS THROWN A SHOE":
   1 "THIS HORSE HAS A COUGH"''"CALL OUT VET (NIGHT CALL) SUPPLYDRUGS AND HEATED STABLES `250"''"NOW ONLY 45% FIT":
   1 "THIS HORSE HAS A CHILL"''"CALL OUT VET EXAMINE AND SUPPLY DRUGS AND HEATED STABLES `220"''"NOW ONLY 55% FIT":
   1 "THIS ANIMAL HAS CONTRACTED
   1 "THE GAME IS SAVED IN FIVE PARTS"
   1 "TAX MAN TAKES 30% OF YOUR PROFIT"'"STARTED WITH `";SMON'"ENDED   WITH `";MON'"30 % TAX  = ";
   1 "Start tape":
   1 "REWIND AND START TAPE"
   1 "RE-REGISTRATION FEE `50":
   1 "PRIZE MONEY  `";L(A,13
   1 "PLEASE WAIT WHILST RACE IS RUN":
   1 "PICK YOUR TRAINER"''"TRAINER
   1 "Name too long (Max. 8 
   1 "Name too long (Max. 10 
   1 "Name Too long (Max. 13 
   1 "MEETING NUMBER ";MEETING;" RACE NUMBER ";A'"GOING :- ";:
   1 "LOAD GAME SELECTED"
   1 "I THINK THIS HORSE HAS VERY GOODDERBY PROSPECTS :";T$(T,
   1 "I DON'T THINK THIS HORSE WOULD  WIN A DONKEY DERBY :";T$(T,
   1 "HOW MUCH ? (10-5000)";
   1 "HORSES IN TRAINING `VAL  `PRIZE":
   1 "HIS SPEED FACTOR IS ";
   1 "HIS BEST DISTANCE IS ";S(H(HORSE,1
   1 "HE PREFERS ";:
   1 "GOODBYE!":
   1 "GOOD TO SOFT ";
   1 "GOOD TO FIRM ";
   1 "FOR HORSES THAT HAVE WON BETWEEN`";CLASS*4000
   1 "FOR HORSES THAT HAVE NOT WON    PRIZE MONEY AND WITH A SPEED    FACTOR  BETWEEN ";CLASS-2
   1 "Enter the horse name you wish toalter ";
   1 "ENTER THE NEW NAME"'
   1 "ENTER 99 TO CONTINUE";
   1 "DO YOU WANT TO SELL A HORSE ?";
   1 "DO YOU WANT TO CONTINUE ?":
   1 "CURRENT FORM - ";R$(H(HORSE,1
   1 "CHOICE ? ENTER 0 IF NO ENTRY";
   1 "CASH IN HAND    `";MON'"TOTAL LIVESTOCK `";TOTAL'"
   1 "Any key to hold listing":
   1 "ALL SAVED INPUT 99 TO VERIFY";
   1 "ALL HORSES":
   1 "ALL HORSES IN OUR STABLES HAVE  CONTRACTED A VIRUS. THE VET SAYSTHAT IT IS NOT SERIOUS BUT OUR  TRAINING SCHEDULE HAS BEEN BADLYAFFECTED."''"ALL HORSES NOW ONLY 50% FIT"'"VETERINARY FEES `360"'"SPECIAL CARE CHARGES `580"''"50 % OF THESE CHARGES HAVE BEEN UNDERTAKEN BY OURSELVES.":
   1 "ADDRESS ";ADR:
   1  never won prize money qualify)."
   1  ` FEE  STABLE JOCKEY":
   1  WITH A SPEED FACTOR BETWEEN ";CLASS-2
   1  WINTER SUN   PEACETIME    DUST STORM   GAMBLING LAD ICE STREAM   DIRTY DUCK   CAKE WALKER  RUN FREE
   1  WATERED DOWN LAST TRUMP   CORNISH PIE  STAR OF A
   1  VIRGIN GAMES LTD.
   1  VIRGIN GAMES 1983";
   1  TWO TON TESS BOBBY'S DREAMDOPEY GO
   1  TURF ACCOUNTANT"
   1  TROJAN SECRETCREE SONG    EIGHT BALL   CROWN
   1  TRAINING REPORT FOR"'"
   1  TO WATCH WHOLE RACE OR  ANY KEY TO SEE THE FINAL FURLONGDISTANCE IS ";l(a,12
   1  TIMEKEEPER   GATEWAY
   1  TAX DODGE    MOST CUNNING BEDBUG
   1  SWEET SCENT  HAPPY DAYS   OLD THUNDER  BE MY GUEST  MAINSAIL
   1  SPANISH WINE MAYOTTE
   1  SNAKE BITE   THE DOLPHIN  FLASHBACK    NITPICKER    FISHWIFE
   1  SHARP TAXI   EXPEDITIOUS  EQUANAID
   1  SAVE GAME"
   1  S  FORM   ODDS"
   1  S  F  FORM   D  G"
   1  ROMAN ROAD   GONE FISHING POLARIS
   1  ROLLERBALL   MUMMYS PET   FRENCH FRIAR THE WALL
   1  REPORT FINANCES"
   1  RENE'S PET   DRUMROAN
   1  RED ROBIN    THE BANDSMAN HOT BRICK    TUDOR ROSE   PUCKMAN
   1  O I OYSTON   TIME MACHINE OCTAVIA GIRL FLUKE
   1  NOBLE PRINCE WESTERN NEWS BLACK PIGEON SWEETPEA
   1  NIGHT PROWLERFITTER
   1  MOTHER IN LAWDANCING LIGHTCHICKWEED    BANANA SPLIT DATSTORNIT   SLIPPERY DICKLOONY LOOP   POLICEMAN    POP MUSIC    PARK LANE    GOLF BALL    DON'S DONKEY YOZZER
   1  MARKING TIME MARCHING ON  BASTION MEWS POKE MY RIBS SURE CLOWN   MR MAGOO
   1  MAN OF SPIRITACCUSED
   1  M.ALEXANDER
   1  List HORSE names"''"
   1  LOAD GAME"
   1  LIST HORSES"
   1  LIST FIXTURES"
   1  LEVEL ";SKILL
   1  HALEY'S COMETRAGAMUFFIN   SPRINGTIME   BEANSMEANS   CORNFLAKE    WESTWARD HO! DRAGON PALACETHE BOXER    BREADWINNNER WHISKY MAC   BELLRINGER   SMART BOMB   FLASHY MOTOR DON'T PANIC  VIDEO KING   WACKY WAITER KEYSTONE COP SPLURGE
   1  FROM STABLES
   1  FIT S DIST/GOING
   1  FIT   DIST/GOING
   1  EQUINE FLU."''"VETERINARY CHARGE `90"'"FITNESS NOW 60%":
   1  ENTER RACES"
   1  END OF RACING SEASON"
   1  DIAL A DISC  HIGH WIRE    SPARK PLUG   INTERFACE    INDIAN JOE   GREENPEACE   HALF A CROWN JILLS' PONY  WAVELENGTH   CUTTING EDGE MOONDANCER   ROUND TRIP   HILL OF SLANEWISHING WELL X RATED
   1  CUT ABOVE    ROXY MUSIC   SLY FOX
   1  COSTALOTTA   ROSY LEE
   1  COME ON DAD  MYSTIC MULE  ARABIAN NIGHTHERCULES
   1  CHANGE TRAINER"
   1  CAPTAIN KIRK MOBY DICK    ELEVATOR
   1  BLUE SWAN    WHITE DOVE   SPRINGY
   1  Alter TRAINER name"''"
   1  Alter JOCKEY name"''"
   1  Alter HORSE name"''"
   1  ALTER NAMES"
   1  ACCEPTED"
   1  ";N$(H(HORSE,1
   1   To qualify for the DERBY a horsemust win more than `80000 in    prize money. Other races this   day are classed by prize money."
   1   :VALUE `";a*4000
   1   ***","FOR HORSES THAT HAVE WON MORE   THAN `80000 THIS SEASON."
   1    END OF RACE REPORT   
   1    DISTANCE :";L(A,12
   1     ANY TO CONTINUE":